home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
PROGRAMR
/
LB09D.ZIP
/
ASCII.BAS
next >
Wrap
BASIC Source File
|
1992-03-02
|
332b
|
16 lines
' This program ask for a string and then
' displays a list of ASCII codes for each
' character in the entered string
input "Please enter a string >"; entry$
for index = 1 to len(entry$)
result$ = result$ + str$(asc(mid$(entry$,index,1))) + chr$(13)
next index
print result$